home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000009_amos-request@svcs1.digex.net_Sun Mar 2 18:31:50 1997.msg < prev    next >
Text File  |  1997-04-01  |  2KB  |  49 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id SAA13391
  3.     for <mcox@access.digex.net>; Sun, 2 Mar 1997 18:31:39 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id RAA12504
  6.     for amos-out; Sun, 2 Mar 1997 17:14:56 -0500 (EST)
  7. Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id RAA12501
  9.     for <amos-list@svcs1.digex.net>; Sun, 2 Mar 1997 17:14:55 -0500 (EST)
  10. Received: from kruuna.Helsinki.FI (palaste@kruuna.helsinki.fi [128.214.180.131])
  11.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id RAA03728
  12.     for <amos-list@access.digex.net>; Sun, 2 Mar 1997 17:14:54 -0500 (EST)
  13. Received: (from palaste@localhost) by kruuna.Helsinki.FI (8.8.5/8.8.0) id AAA02060; Mon, 3 Mar 1997 00:14:52 +0200 (EET)
  14. Date: Mon, 3 Mar 1997 00:14:51 +0200 (EET)
  15. From: Joona I Palaste <palaste@cc.helsinki.fi>
  16. X-Sender: palaste@kruuna.Helsinki.FI
  17. To: Reine Johansson <reine.johansson@mbox2.swipnet.se>
  18. cc: amos-list@access.digex.net
  19. Subject: Re: Systemtime
  20. In-Reply-To: <328.7000T1208T2885@mbox2.swipnet.se>
  21. Message-ID: <Pine.SOL.3.91.970303001347.641D-100000@kruuna.Helsinki.FI>
  22. MIME-Version: 1.0
  23. Content-Type: TEXT/PLAIN; charset=US-ASCII
  24. Status: RO
  25. X-Status: 
  26.  
  27. On 2 Mar 1997, Reine Johansson wrote:
  28.  
  29. > How do I get the systemtime in AMOS? Example code _please_
  30.  
  31. It only works in AMOS Pro. Here's how:
  32.  
  33. Exec "date >t:date.tmp"
  34. Open In 1,"t:date.tmp"
  35. ROW$=Input$(1,Lof(1))
  36. Close 1
  37. Print ROW$
  38.  
  39. And there you have it! Isn't this a sneaky way to do it? =)
  40.  
  41. /----------------------------------------------------------------------\
  42. | Joona Palaste                             |      |  |                |
  43. | palaste@cc.helsinki.fi                    |      |  |                |
  44. | G++ FR FW+ M- #20 D+ ADA N+++ W++ B OP+   |-------  -----------------|
  45. |                                           |-------  -----------------|
  46. |                                           |      |  |                |
  47. | Finland rules! =>                         |      |  |                |
  48. \----------------------------------------------------------------------/
  49.